home *** CD-ROM | disk | FTP | other *** search
/ Aminet 8 / Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso / Aminet / dev / m2 / M2Pica.readme < prev   
Text File  |  1995-09-20  |  11KB  |  291 lines
  1. Short:    Use the picasso gfxboard with Modula-2
  2. Author:   C.Wartmann@GANDALF.berlinet.de
  3. Uploader: C.Wartmann@GANDALF.berlinet.de
  4. Type:     dev/m2
  5.  
  6.  
  7. Use your Picasso II with Modula-2 ! Every function of vilintuisup.library
  8. avaible via Modula-2 + fast ML Line-routines. Lots of demo programms.
  9.  
  10. FREEWARE, but please send me your suggestions/enhancements etc. via E-Mail.
  11.  
  12.  
  13.  
  14. Dokumentatation zu den Modula-2 Schnittstellenmodulen für die
  15. Picasso Grafikkarte von VillageTronic.
  16.  
  17. *******************************************************************************
  18.  : Program.         VilIntuiSupL.def
  19.  : Author.          Carsten Wartmann (Crazy Video)
  20.  : Address.         Wutzkyallee 83, 12353 Berlin
  21.  : Phone.           030/6614776 
  22.  : E-Mail           C.WARTMANN@GANDALF.berlinet.de
  23.                     Carsten_Wartmann@tfh-berlin.de
  24.  : Version.         0.99c (0.99b)
  25.  : Date.            21.08.1995 (16.11.1994) (24.8.94) (22.Feb.1994) 
  26.  : Copyright.       Freeware
  27.  : Language.        Modula-2
  28.  : Compiler.        M2Amiga V4.3d
  29.  : Contents.        Macht die VilIntuiSup.library für MODULA-2 (M2Amiga)
  30.  : Contents.        Programmierer nutzbar.
  31. *******************************************************************************)
  32.  
  33.  
  34. Folgende Routinen stellt die VilIntuiSup.library zur Verfügung :
  35.  
  36. DEFINITION MODULE VilIntuiSupL{"vilintuisup.library",2} ;
  37.  
  38.  
  39. FROM SYSTEM     IMPORT ADDRESS,BYTE ;
  40. FROM ExecD      IMPORT ListPtr ;
  41. FROM IntuitionD IMPORT ScreenPtr,RememberPtr ;
  42. FROM UtilityD   IMPORT TagItemPtr,Tag ;
  43.  
  44. IMPORT vil:VilIntuiSupD,R ;
  45.  
  46.  
  47.  
  48. (* Old function, do not use in future !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!*)
  49. PROCEDURE OpenVillageScreen(mode{R.A0} : vil.DimensionPtr) : ScreenPtr ; 
  50.           CODE -30 ;
  51.  
  52. PROCEDURE OpenVillageScreenTagList(tags{R.A0} : TagItemPtr) : ScreenPtr ; 
  53.           CODE -114 ;
  54.  
  55. PROCEDURE CloseVillageScreen(screen{R.A0} : ScreenPtr) ; 
  56.           CODE -36 ;
  57.      
  58. PROCEDURE LockVillageScreen(screen{R.A0}   : ScreenPtr) : ADDRESS ; 
  59.           CODE -42 ;
  60. PROCEDURE UnLockVillageScreen(screen{R.A0} : ScreenPtr) ; 
  61.           CODE -48 ;
  62.  
  63. PROCEDURE GetMemSize(screen{R.A0} : ScreenPtr) : LONGCARD ;
  64.           CODE -72 ;
  65.  
  66. PROCEDURE VillageScreenData(screen{R.A0} : ScreenPtr ;
  67.                             tag{R.D0}    : Tag) : LONGCARD ; 
  68.           CODE -120 ;
  69.  
  70. PROCEDURE IsVillageScreen(screen{R.A0} : ScreenPtr) : BOOLEAN ; 
  71.           CODE -66 ;
  72.  
  73. PROCEDURE VillageRectFill(screen{R.A0}  : ScreenPtr ;
  74.                           fillrec{R.A1} : vil.VilFillRecordPtr) : LONGINT ; 
  75.                           CODE -78 ;
  76.  
  77. PROCEDURE VillageBlitCopy(screen{R.A0} : ScreenPtr ;
  78.                           record{R.A1} : vil.VilCopyRecordPtr) ;
  79.           CODE -54 ;
  80.  
  81. PROCEDURE WaitVillageBlit ;
  82.           CODE -60 ;
  83.  
  84. PROCEDURE VillageModeRequest(tags{R.A0} : TagItemPtr) : LONGCARD ;
  85.           CODE -84 ;
  86. PROCEDURE VillageModeList(memorykey{R.A0} : RememberPtr ;
  87.                           tags{R.A1}      : TagItemPtr) : ListPtr ;
  88.           CODE -90 ;
  89. PROCEDURE VillageBestModeID(tags{R.A0} : TagItemPtr) : LONGCARD ;
  90.           CODE -108 ;
  91.  
  92. PROCEDURE VillageGetBufAddr(screen{R.A0} : ScreenPtr ;
  93.                             num{R.D0}    : LONGCARD) : ADDRESS ;
  94.           CODE -126 ;
  95. PROCEDURE VillageSetDisplayBuf(screen{R.A0} : ScreenPtr ;
  96.                                num{R.D0}    : LONGCARD) ;
  97.           CODE -132 ;
  98.  
  99.  
  100. PROCEDURE VillageSetSegment(segnum{R.D0} : LONGCARD) ;
  101.           CODE -96 ;
  102. PROCEDURE VillageGetSegment ;
  103.           CODE -102 ;
  104.  
  105.  
  106. END VilIntuiSupL.lib2
  107.  
  108.  
  109.  
  110.  
  111.  
  112. Ansonsten ist noch VilIntuiSupD.def aufschlussreich.
  113.  
  114. (*******************************************************************************
  115.  : Program.         VilIntuiSupD.def
  116.  : Author.          Carsten Wartmann (Crazy Video)
  117.  : Address.         Wutzkyallee 83, 12353 Berlin
  118.  : Phone.           030/6614776
  119.  : E-Mail           C.Wartmann@GANDALF.berlinet.de (bevorzugt)
  120.  : E-Mail           Carsten_Wartmann@tfh-berlin.de
  121.  : Version.         1.0
  122.  : Date.            21.08.1995 (16.Nov.1994)
  123.  : Copyright.       Freeware
  124.  : Language.        Modula-2
  125.  : Compiler.        M2Amiga V4.3d
  126.  : Contents.        Macht die VilIntuiSup.library für MODULA-2 (M2Amiga)
  127.  : Contents.        Programmierer nutzbar.
  128.  : Contents.        Enthält Die Definitionen der Tags, Const. etc. für
  129.  : Contents.        die VilIntuiSup.library
  130. *******************************************************************************)
  131.  
  132. DEFINITION MODULE VilIntuiSupD ;
  133.  
  134.  
  135. FROM ExecD      IMPORT Node ;
  136.  
  137. FROM IntuitionD IMPORT ScreenPtr ;
  138.  
  139. FROM UtilityD   IMPORT tagUser ;
  140.  
  141. FROM SYSTEM     IMPORT ADDRESS,BYTE ;
  142.  
  143. IMPORT R;
  144.  
  145. [...]  Definitionen gelöscht !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  146.  
  147. (* Support *)
  148.  
  149. (* Setze PP für 68000er *)
  150. PROCEDURE SetPackedPixel(scr{R.A0} : ScreenPtr ; x{R.D2},y{R.D3} : CARDINAL ;
  151.                                                  color{R.D4} : CARDINAL) ;
  152.  
  153. (* Setze TrueColorPixel *)
  154.  
  155. PROCEDURE SetTrueColorPixel(scr{R.A0} : ScreenPtr ; x{R.D2},y{R.D3}         : CARDINAL ;
  156.                                                     r{R.D4},g{R.D5},b{R.D6} : CARDINAL) ;
  157.  
  158. (* Setze 15(6)BitPixel *)
  159.  
  160. PROCEDURE Set15BitPixel(scr{R.A0} : ScreenPtr ; x{R.D2},y{R.D3}         : CARDINAL ;
  161.                                                 r{R.D4},g{R.D5},b{R.D6} : CARDINAL) ;
  162.  
  163. PROCEDURE Set16BitPixel(scr{R.A0} : ScreenPtr ; x{R.D2},y{R.D3}         : CARDINAL ;
  164.                                                 r{R.D4},g{R.D5},b{R.D6} : CARDINAL) ;
  165.  
  166. (* Linienroutinen *)
  167.  
  168. (* In Assembler aber mit Sicherheitsabfrage *)
  169. PROCEDURE LinePacked(scr{R.A0} : ScreenPtr ; x1{R.D5},y1{R.D6},
  170.                                               x2{R.D2},y2{R.D3},color{R.D4} : LONGINT) ;
  171.                                              color{R.D4} : INTEGER) ;
  172.  
  173. PROCEDURE LineTrueColor(scr : ScreenPtr ; x1,y1,x2,y2,r,g,b : INTEGER) ;
  174.  
  175. PROCEDURE Line15Bit(scr : ScreenPtr ; x1,y1,x2,y2,r,g,b : INTEGER) ;
  176.  
  177. PROCEDURE Line16Bit(scr : ScreenPtr ; x1,y1,x2,y2,r,g,b : INTEGER) ;
  178.  
  179. (* Hi-Color Support*)
  180.  
  181. PROCEDURE Get15FromRGB(r{R.D4},g{R.D5},b{R.D6} : CARDINAL) : CARDINAL ;
  182. PROCEDURE Get16FromRGB(r{R.D4},g{R.D5},b{R.D6} : CARDINAL) : CARDINAL ;
  183.  
  184. PROCEDURE Kreis(scr : ScreenPtr ; x,y,r,col : INTEGER) ;
  185.  
  186. PROCEDURE ClearScreen(scr : ScreenPtr) ;
  187.  
  188. PROCEDURE ClearBuf(scr : ScreenPtr ; bufadr : ADDRESS) ;
  189.  
  190.  
  191. END VilIntuiSupD .
  192.  
  193.  
  194.  
  195.  
  196. Hier nun eine detailiertere Beschreibung :
  197.  
  198.  
  199. Tja, ist noch in Arbeit... Man schaue sich die Demos an.
  200. Ansonsten wäre da noch die Doku von VT zur Vilintui, die Unterschiede
  201. der Bezeichner erkennt man aus den defs etc.
  202.  
  203. Also *mir* reichen die Schnittstellen so wie sie jetzt sind. Wenn keine
  204. Reaktion kommt ist das auch die letzte Veröffentlichung. Ohne
  205. Anregungen/Kritik mache ich nicht weiter.
  206. Ich bitte jeden mir eine E-Mail zu schreiben, der diese Soft benutzt.
  207.  
  208. (*
  209. Zu sagen wäre noch, das anscheinend in der Software von VillageTronic noch
  210. einige "Käfer" sind, so funktioniert z.B. das Blitten vom System-Mem ins
  211. Graphic-Mem nicht (naja, wenn Enforcer läuft gehts manchmal...)
  212. *)
  213. Das funktioniert jetzt. Obwohl ich mehrmals VT auf diesen Fehler
  214. hingewiesen habe kam keine Reaktion. Nach dem letzten Update der
  215. Picasso-Soft ging es plötzlich !
  216.  
  217.  
  218. Die Punktsetzroutinen und die Chunky-Pixelroutine sind in Assembler
  219. implementiert und schneller als die C-Konstrukte von VT.
  220.  
  221.  
  222. MfG Carsten.
  223. ============
  224.  
  225.  
  226. ============================= Archive contents =============================
  227.  
  228. Original  Packed Ratio    Date     Time    Name
  229. -------- ------- ----- --------- --------  -------------
  230.     1276     526 58.7% 21-Aug-95 13:53:50 +Timer2.ob3
  231.     1280     526 58.9% 21-Apr-95 13:28:10 +Timer2.ob8
  232.     1520     592 61.0% 23-May-95 15:01:00 +Timer2.obj
  233.     5352    1685 68.5% 21-Apr-95 13:28:16 +VilIntuiSupD.ob8
  234.     5400    1716 68.2% 16-Nov-94 14:06:20 +VilIntuiSupD.obj
  235.      416     232 44.2% 21-Aug-95 13:53:46 +VilIntuiSupL.ob3
  236.      416     232 44.2% 21-Apr-95 13:28:10 +VilIntuiSupL.ob8
  237.      416     232 44.2% 16-Nov-94 14:06:14 +VilIntuiSupL.obj
  238.     5352    1685 68.5% 21-Aug-95 13:54:02 +VilIntuiSupD.ob3
  239.    21558   13091 39.2% 17-Aug-94 15:30:08 +Galerie160.bmp
  240.     4918     815 83.4% 17-Aug-94 22:06:36 +Kugeln.bmp
  241.     4918     772 84.3% 19-Aug-94 15:11:24 +Kugeln1.bmp
  242.      896     426 52.4% 19-Aug-94 15:08:10 +PAL.pal
  243.    10906    2924 73.1% 18-Aug-94 01:37:46 +Ship1.bmp
  244.    10294    2875 72.0% 19-Aug-94 15:10:14 +Ship2.bmp
  245.   328758   19063 94.2% 19-Aug-94 15:09:48 +Space1.bmp
  246.    10188    6050 40.6% 21-Aug-95 13:54:26 +Space030
  247.     2102     577 72.5% 19-Aug-94 15:51:12 +Explosion.bmp
  248.     9526     919 90.3% 19-Aug-94 15:10:52 +Ufo.bmp
  249.      270     185 31.4% 21-Aug-95 13:53:34 +Timer2.sym
  250.      798     249 68.7% 16-Nov-94 14:14:12 +Timer2.sym.info
  251.    17110    8749 48.8% 21-Aug-95 13:53:40 +VilIntuiSupD.sym
  252.      798     250 68.6% 16-Nov-94 14:06:10 +VilIntuiSupD.sym.info
  253.    14957    7952 46.8% 21-Aug-95 13:53:46 +VilIntuiSupL.sym
  254.      798     250 68.6% 16-Nov-94 14:06:14 +VilIntuiSupL.sym.info
  255.     2516    1440 42.7% 04-Aug-95 20:04:02 +IFF.sym
  256.     3298    1224 62.8% 21-Aug-95 13:52:28 +DBuf.mod
  257.     3727    1158 68.9% 21-Aug-95 13:52:28 +Picatest.mod
  258.     3766    1209 67.8% 21-Aug-95 13:52:28 +picatest15.mod
  259.    14712    3933 73.2% 21-Aug-95 13:53:24 +Space.mod
  260.    14710    3928 73.2% 21-Aug-95 13:52:28 +Space.modO
  261.     3678    1305 64.5% 21-Aug-95 13:52:28 +Styx.mod
  262.     7195    1921 73.3% 21-Aug-95 13:52:28 +vilintuisupD.def
  263.    17552    3481 80.1% 21-Aug-95 13:52:28 +VilIntuiSupD.mod
  264.     3288    2297 30.1% 16-Nov-94 14:28:44 +DBuf
  265.      378     160 57.6% 16-Nov-94 14:45:18 +DBuf.info
  266.      628     258 58.9% 16-Nov-94 14:45:18 +obj.info
  267.     4528    3029 33.1% 16-Nov-94 14:06:28 +PicaTest
  268.      378     157 58.4% 16-Nov-94 14:45:18 +PicaTest.info
  269.     3730    1206 67.6% 21-Aug-95 13:52:28 +picatest16.mod
  270.     3713    1164 68.6% 21-Aug-95 13:52:28 +Picatest8.mod
  271.     1016     458 54.9% 21-Aug-95 13:52:28 +Timer2.def
  272.     2435    1080 55.6% 21-Aug-95 13:52:28 +Timer2.mod
  273.     2932     911 68.9% 21-Aug-95 13:52:28 +vilintuisupL.def
  274.     4588    3090 32.6% 16-Nov-94 14:07:06 +PicaTest15
  275.      378     161 57.4% 16-Nov-94 14:45:18 +PicaTest15.info
  276.     4564    3081 32.4% 16-Nov-94 14:07:22 +PicaTest16
  277.      378     158 58.2% 16-Nov-94 14:45:18 +PicaTest16.info
  278.     3748    2313 38.2% 21-Apr-95 13:26:30 +PicaTest8
  279.      378     161 57.4% 16-Nov-94 14:45:18 +PicaTest8.info
  280.      628     258 58.9% 16-Nov-94 14:45:18 +Pics.info
  281.      378     159 57.9% 16-Nov-94 14:45:18 +Space030.info
  282.     3944    2651 32.7% 16-Nov-94 14:10:10 +Styx
  283.      378     161 57.4% 16-Nov-94 14:45:18 +Styx.info
  284.      628     260 58.5% 16-Nov-94 14:45:18 +sym.info
  285.     2868     581 79.7% 21-Aug-95 13:41:16  M2Pica.info
  286.      628     259 58.7% 16-Nov-94 14:45:18 +Txt.info
  287.     7278    2286 68.5% 21-Aug-95 12:28:48 +VilIntuiSup.DOK
  288.      358     265 25.9% 21-Aug-95 13:47:04 +VilIntuiSup.DOK.info
  289. -------- ------- ----- --------- --------
  290.   585525  118736 79.7% 23-Aug-95 03:03:16   59 files
  291.